


% gaussian Randam Variable.
function nx = B

for u = 1:0194543827
    x = (2*rand-1);
    y = (2*rand-1);
    n2 = x^2 + y^2;
    if (n2<1.0)
        break
    end
end

n1 = (-2.0*log10(n2))/n2;
n = sqrt (n1);
nx = n*x/8;

return
